home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / morbith.lha / ANDRE.AMS / ANDRE.amosSourceCode next >
AMOS Source Code  |  1980-01-01  |  2KB  |  80 lines
  1. Screen Open 0,320,256,32,Lowres
  2. Get Sprite Palette : Flash Off : Curs Off : Cls 0
  3. Double Buffer : Dim SCORE(10) : Dim SCORE$(10)
  4. Bob 8,146,141,Rnd(10)+1 : Channel 8 To Bob 8
  5. Bob 9,132,94,Rnd(9)+12 : Channel 9 To Bob 9
  6. Bob 10,163,88,Rnd(9)+12 : Channel 10 To Bob 10
  7. Bob 11,150,150,23 : Hide : Channel 11 To Bob 11
  8. Amal 8,"A 0,(1,5)(2,5)(3,5)(4,5)(5,5)(6,5)(7,5)(8,5)(9,5)(10,5)(11,5)"
  9. Amal 9,"A 0,(12,5)(13,5)(14,5)(15,5)(16,5)(17,5)(18,5)(19,5)(20,5)(21,5)"
  10. Amal 10,"A 0,(21,5)(20,5)(19,5)(18,5)(17,5)(16,5)(15,5)(14,5)(13,5)(12,5)"
  11. Amal 11,"R:M XM-128-X,YM-42-Y,8;J R"
  12. Amal On : Paper 0 : Rem Hide 
  13. Rem Change Mouse 2 : 
  14. SNOT:
  15. Cls 0 : Paste Bob 70,20,22 : X=0 : Y=0 : KOGEL=50 : Pen 15 : PUNTEN=0 : PUNTEN$=""
  16. Locate 0,0 : Input "Geef mij je naam:";PUNTEN$ : Curs Off 
  17. Locate 0,0 : Print "                                                                  "
  18. HIER:
  19. Locate 0,0 : Print "Punten:";PUNTEN;"   Kogels:";KOGEL;"  "
  20. X Mouse=X Mouse-Rnd(30) : Y Mouse=Y Mouse-Rnd(30)
  21. X Mouse=X Mouse+Rnd(30) : Y Mouse=Y Mouse+Rnd(30)
  22. If Mouse Key>0 Then Gosub TEST : KOGEL=KOGEL-1
  23. If KOGEL<1 Then Locate 0,0 : Print "Punten:";PUNTEN;"   Kogels:";KOGEL;"  " : Wait 50 : Goto SCORE
  24. Goto HIER
  25.  
  26. TEST:
  27. Rem kijk of er raak geschoten is 
  28. Shoot 
  29. If Bob Col(11)<>0 Then PUNTEN=PUNTEN+Rnd(75) : Pen 16 : Locate 0,2 : Print "AUW!" : Wait 5 : Locate 0,2 : Print "    " : Pen 15
  30. Return 
  31.  
  32. SCORE:
  33. Rem kijk of de scores bestaan
  34. If Exist("andre.pnt") Then Gosub HAP : Goto WIPPIE
  35. SCORE(1)=PUNTEN : SCORE$(1)=PUNTEN$ : Goto HAP2
  36.  
  37. WIPPIE:
  38. Rem vergelijk de scores
  39. For T=1 To 10
  40. If PUNTEN>SCORE(T) Then Goto CHANGE
  41. Next T
  42. Goto HAP2
  43.  
  44.  
  45. HAP:
  46. Open In 1,"andre.pnt"
  47. For X=1 To 10
  48. Input #1,SCORE(X)
  49. Input #1,SCORE$(X)
  50. Next X
  51. Close 1
  52. Return 
  53.  
  54. HAP2:
  55. Open Out 1,"andre.pnt"
  56. For X=1 To 10
  57. Print #1,SCORE(X)
  58. Print #1,SCORE$(X)
  59. Next X
  60. Close 1
  61. Unpack 2
  62.  
  63.  
  64. Pen 15 : Paper 0
  65. For YO=1 To 10
  66. Locate 23,YO+15 : Print YO;")";SCORE$(YO);SCORE(YO)
  67. Next YO
  68. Locate 0,27 : Input "Nog een keer (j/n)";JN$
  69. If Lower$(JN$)="j" Then Goto SNOT
  70. End 
  71.  
  72. CHANGE:
  73. Rem verplaats de scores 1  
  74. For Z=10 To T Step -1
  75.  
  76. SCORE(Z)=SCORE(Z-1)
  77. SCORE$(Z)=SCORE$(Z-1)
  78. Next Z
  79. SCORE(T)=PUNTEN : SCORE$(T)=PUNTEN$
  80. Goto HAP2